home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / password.arc / APPEND.BAS next >
Encoding:
BASIC Source File  |  1986-05-14  |  3.1 KB  |  76 lines
  1. 10 ' *********************************************
  2. 20 ' *                                           *
  3. 30 ' *     APPEND.BAS  -  example program        *
  4. 40 ' *                                           *
  5. 50 ' *                                           *
  6. 60 ' *      by     Robert Hendrix                *
  7. 70 ' *             1080 Bouldercrest Dr.         *
  8. 80 ' *             Watkinsville, GA              *
  9. 90 ' *                                           *
  10. 100 '*                                           *
  11. 110 '*********************************************
  12. 120 '
  13. 130 KEY OFF
  14. 140 CLS : LOCATE 2,1 : PRINT "        This program adds name's and passwords to the password file."
  15. 150 '
  16. 160 ' ========= OPEN THE FILE THAT CONTAINS THE PASSWORDS ==================
  17. 170 '
  18. 180 OPEN "filename.dat" FOR APPEND AS 1
  19. 190 '
  20. 200 ' ========== INPUT USERNAME =============================================
  21. 210 '
  22. 220 LOCATE 5,5 : INPUT "Enter user's name - "; USERNAME$
  23. 230 '
  24. 240 '=========== TEST USERNAME FOR LOWERCASE LETTERS =========================
  25. 250 '
  26. 260 LENGTH = LEN(USERNAME$)
  27. 270 FOR ZZ = 1 TO LENGTH
  28. 280 TYPE$=MID$(USERNAME$,ZZ,1): IF ASC(TYPE$)>= 97 AND ASC(TYPE$)<= 122 THEN 690 ELSE NEXT
  29. 290 '
  30. 300 '=========== INPUT PASSWORD ==============================================
  31. 310 '
  32. 320 LOCATE 7,5 : INPUT "Enter user's password - " ; PASSWORD$
  33. 330 '
  34. 340 '=========== SHOW VALUES ENTERED =========================================
  35. 350 '
  36. 360 CLS : LOCATE 5,5 : PRINT USERNAME$,PASSWORD$
  37. 370 '
  38. 380 '=========== ASK IF VALUES ARE CORRECTLY ENTERED ==========================
  39. 390 '
  40. 400 LOCATE 7,5 : PRINT "This is the name and password as entered."
  41. 410 LOCATE 9,5 : INPUT "Is this correct (Y or N) "; ANSWER$
  42. 420 IF ANSWER$ = "Y" OR ANSWER$ = "y" THEN 480
  43. 430 IF ANSWER$ = "N" OR ANSWER$ = "n" THEN CLS : GOTO 220 ELSE GOSUB 630
  44. 440 GOTO 360
  45. 450 '
  46. 460 '=========== WRITE USER NAME AND PASSWORD TO PASSWORD FILE =================
  47. 470 '
  48. 480 WRITE #1,USERNAME$,PASSWORD$
  49. 490 '
  50. 500 '=========== ASK IF THERE ARE MORE TO BE ADDED ======================
  51. 510 '
  52. 520 CLS : INPUT "Would you like to add another name to the password file (Y or N)" ; ANSWER$
  53. 530 IF ANSWER$ = "Y" OR ANSWER$ = "y" THEN 220
  54. 540 IF ANSWER$ = "N" OR ANSWER$ = "n" THEN CLS : GOTO 590 ELSE GOSUB 630
  55. 550 GOTO 520
  56. 560 '
  57. 570 '========= CLOSE PASSWORD FILE =========================================
  58. 580 '
  59. 590 CLOSE #1: CLS:GOTO 730
  60. 600 '
  61. 610 '========= ERROR MESSAGE FOR INVALID YES NO RESPONSE ====================
  62. 620 '
  63. 630 CLS: LOCATE 5,5 : PRINT "Sorry, The only valid answers are Y or N "
  64. 640 LOCATE 9,5 : PRINT "Try again "
  65. 650 FOR Z=1 TO 2500 : NEXT : CLS : RETURN
  66. 660 '
  67. 670 '========= ERROR MESSAGE FOR INVALID USERNAME ============================
  68. 680 '
  69. 690 CLS : PRINT "Please use capital letters for the username." : GOTO 220
  70. 700 '
  71. 710 '========= ASK IF YOU WANT TO END IN BASIC OR AT SYSTEM LEVEL ============
  72. 720 '
  73. 730 CLS : LOCATE 5,2 : PRINT " Would you like to return to DOS ? (Y or N)"
  74. 740 ANS$ = INKEY$ : IF ANS$="" THEN 740
  75. 750 IF ANS$ = "Y" OR ANS$ = "y" THEN CLS:SYSTEM ELSE CLS:END
  76.